Dim i1 As Date
Dim i2 As Date
Dim i3 As Date
Dim i4 As Date

Private Sub Command1_Click()
i1 = 0
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = Not (Timer1.Enabled)
Label10.Caption = 50 * DateDiff("n", 0, i1)
End Sub

Private Sub Command3_Click()
i2 = 0
Timer2.Enabled = True
End Sub

Private Sub Command4_Click()
Timer2.Enabled = Not (Timer2.Enabled)
Label11.Caption = 50 * DateDiff("n", 0, i2)
End Sub

Private Sub Command5_Click()
i3 = 0
Timer3.Enabled = True
End Sub

Private Sub Command6_Click()
Timer3.Enabled = Not (Timer3.Enabled)
Label12.Caption = 50 * DateDiff("n", 0, i3)
End Sub

Private Sub Command7_Click()
i4 = 0
Timer4.Enabled = True
End Sub

Private Sub Command8_Click()
Timer4.Enabled = Not (Timer4.Enabled)
Label13.Caption = 50 * DateDiff("n", 0, i4)
End Sub

Private Sub Form_Load()

Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End Sub

Private Sub Timer1_Timer()
i1 = DateAdd("s", 1, i1)
Label1.Caption = i1
End Sub

Private Sub Timer2_Timer()
i2 = DateAdd("s", 1, i2)
Label2.Caption = i2
End Sub

Private Sub Timer3_Timer()
i3 = DateAdd("s", 1, i3)
Label3.Caption = i3
End Sub

Private Sub Timer4_Timer()
i4 = DateAdd("s", 1, i4)
Label4.Caption = i4
End Sub
